home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / clpfor.com / DEMOCLIP.PRG < prev    next >
Encoding:
Text File  |  1989-01-22  |  547 b   |  25 lines
  1. *------------------------ Alle Rechte vorbehalten ----------------------------
  2.  
  3. EXTERNAL COORD
  4.  
  5. DECLARE A[3],B[3]
  6.  
  7. CLEAR
  8. A[1]=4.0
  9. A[2]=6.0
  10. A[3]=9.0
  11. B[1]=10.0
  12. B[2]=3.0
  13. B[3]=7.586
  14. C=0.0
  15. D=.f.
  16. N=COORD(A,B,@C,@D)
  17. @ 17,0 SAY "Press any key to continue..."
  18. Y=inkey(0)
  19. @ 17,0 SAY "____________________________________________"
  20. @ 19,0 SAY " Now, your are back to Clipper"
  21. ? " These are the Values CLipper received from FORTRAN:"
  22. ? " Distance A to B :"+STR(C,6,2)
  23. ? " Array check A[] :",D           
  24. ? " IFEHL           :"+STR(N,3)
  25.